home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Base.pm < prev    next >
Text File  |  2008-10-10  |  499b  |  40 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Base;
  6. use Debconf::Log ':all';
  7. use strict;
  8.  
  9.  
  10. sub new {
  11.     my $proto = shift;
  12.     my $class = ref($proto) || $proto;
  13.     my $this=bless ({@_}, $class);
  14.     $this->init;
  15.     return $this;
  16. }
  17.  
  18.  
  19. sub init {}
  20.  
  21.  
  22. sub AUTOLOAD {
  23.     (my $field = our $AUTOLOAD) =~ s/.*://;
  24.  
  25.     no strict 'refs';
  26.     *$AUTOLOAD = sub {
  27.         my $this=shift;
  28.  
  29.         return $this->{$field} unless @_;
  30.         return $this->{$field}=shift;
  31.     };
  32.     goto &$AUTOLOAD;
  33. }
  34.  
  35. sub DESTROY {
  36. }
  37.  
  38.  
  39. 1
  40.